home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / qsrc_dsk.zip / MODEL / CREATET.PRG < prev    next >
Text File  |  1991-12-17  |  4KB  |  132 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ CREATET.PRG                                             ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║ Application Developed in _Using FoxPro 2_               ║
  7. *       ║                                                         ║
  8. *       ║ Lisa C. Slater and Steven E. Arnott                     ║
  9. *       ║                                                         ║
  10. *       ║ Copyright (c) 1991 Que Publishing                       ║
  11. *       ║                                                         ║
  12. *       ╙─────────────────────────────────────────────────────────╜
  13.  
  14. * 
  15. *                  Executive Information System for
  16. * 
  17. *                    The Omnipresent Widget, Ltd.
  18.  
  19. * codes in the system are created from initial letters
  20. * plus tie-breaking digits for sub-groups 
  21.  
  22. CREATE TABLE Budget      ;
  23.     (Deptcode    C(4),   ;     
  24.      Prodcode    C(5),   ;     
  25.      Budcatcode  C(4),   ;     
  26.      Period      D,      ;     
  27.      Budgetamt   N(7,0), ;     
  28.      Final       L,      ;     
  29.      Notes       M)
  30. INDEX ON Prodcode   TAG Prodcode
  31. INDEX ON Deptcode   TAG Deptcode
  32. INDEX ON Budcatcode TAG Budcatcode
  33. INDEX ON Period     TAG Period
  34. INDEX ON Budgetamt  TAG Budgetamt
  35. INDEX ON Final      TAG Final 
  36.  
  37. CREATE TABLE Dept        ;
  38.      (Deptcode   C(4),   ;     
  39.       Deptname   C(30))        
  40. INDEX ON Deptcode TAG Deptcode
  41. INDEX ON Deptname Tag Deptname
  42.  
  43. CREATE TABLE Product     ;
  44.      (Prodcode   C(5),   ;     
  45.       Prodname   C(20),  ;     
  46.       Photo          M)
  47. INDEX ON Prodname TAG Prodname
  48. INDEX ON Prodcode TAG Prodcode
  49.  
  50. CREATE TABLE Budcat      ;
  51.      (Budcatcode C(4),   ;     
  52.       Budcat     C(20))  ;     
  53. INDEX ON Budcatcode TAG Budcatcode
  54. INDEX ON Budcat     TAG Budcat 
  55.  
  56. CREATE TABLE Manufact    ;
  57.      (Prodcode   C(5),   ;     
  58.       Proddate   D,      ;     
  59.       Shift      C(1),   ;     
  60.       Quantity   N(4,0), ;     
  61.       Rejects    N(4,0))       
  62.  
  63. CREATE TABLE Prodmix     ;
  64.      (Prodcode   C(5),   ;     
  65.       Rawmatter  C(20),  ;     
  66.       Weight     N(7,0))
  67.  
  68.  
  69. CREATE TABLE Rawdeliv    ;
  70.       (Invoice    C(5),   ;     
  71.       Vendorcode C(4),   ;     
  72.       Rawmatter  C(20),  ;     
  73.       Cost       N(10,2),;     
  74.       Delivdate  D,      ;     
  75.       Paiddate   D)            
  76.  
  77. CREATE TABLE Material    ;
  78.      (Rawmatter C(20))         
  79.  
  80. CREATE TABLE Vendor      ;
  81.      (Vendorcode C(4),   ;     
  82.       Company    C(30),  ;     
  83.       President  C(30),  ;     
  84.       Phone      C(10))       
  85.  
  86. CREATE TABLE Capexp      ;     
  87.      (Capcode    C(4),   ;     
  88.       Deptcode   C(4),   ;     
  89.       Prodcode   C(5),   ;     
  90.       Period     C(5),   ;     
  91.       Depnperiod N(2,0), ;     
  92.       Amount     N(10,2),;     
  93.       Notes      M)           
  94.  
  95. CREATE TABLE Wages       ;
  96.      (Deptcode   C(4),   ;     
  97.       Prodcode   C(5),   ;     
  98.       Wagetype   C(1),   ;     
  99.       Shift      C(1),   ;     
  100.       Periodwk   C(5),   ;     
  101.       Amount     N(11,2))      
  102.  
  103. CREATE TABLE Sales       ;
  104.      (Invoice    C(5),   ;     
  105.       Prodcode   C(5),   ;     
  106.       Datesold   D,      ;     
  107.       Quantity   N(5,0), ;     
  108.       Price      N(7,2), ;     
  109.       Salesman   C(4),   ;     
  110.       Custcode   C(4))         
  111.  
  112. CREATE TABLE Salesman    ;
  113.      (Salesman   C(4),   ;     
  114.       Name       C(30))       
  115.  
  116. CREATE TABLE Customer    ;
  117.      (Custcode   C(4),   ;     
  118.       Company    C(35),  ;     
  119.       Address1   C(30),  ;     
  120.       Address2   C(30),  ;     
  121.       City       C(20),  ;     
  122.       State      C(2),   ;     
  123.       Zip        C(5),   ;     
  124.       Lastname   C(20),  ;     
  125.       Firstname  C(15),  ;     
  126.       Prefix     C(3),   ;     
  127.       Phone      C(10))       
  128.  
  129.  
  130. RETURN
  131.  
  132.